home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00712_AC-IN 2.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.2 KB  |  40 lines
  1. on exitFrame
  2.   global gListAcc, gSurvolAct, gSurvolPrec, g1erSprNav, g1erSprLoc, gMaxBoutons, g1erSprChr, gSujet0, gSujet1, gPartie, gAngle, gAcLabel, gEtudPrec, gIndSel, gEtudAct
  3.   curseur(6)
  4.   set gListAcc to list("ACCDE", "ACCTR", "ACCPH", "ACCBI", "ACCSU", "ACCIN", "ACCDX", "ACCMI", "ACCTH", "ACCQZ", "ACCOU")
  5.   repeat with i = g1erSprChr to gMaxBoutons
  6.     puppetSprite(i, 1)
  7.   end repeat
  8.   set gSurvolAct to 0
  9.   set gSurvolPrec to -1
  10.   set gSujet0 to 0
  11.   set gSujet1 to 0
  12.   set gPartie to " "
  13.   set gAngle to 0
  14.   if gEtudPrec <> "FI" then
  15.     repeat with i = g1erSprChr to g1erSprLoc + 10
  16.       set the visible of sprite i to 1
  17.     end repeat
  18.   else
  19.     repeat with i = g1erSprChr to g1erSprLoc + 10
  20.       set the visible of sprite i to 0
  21.     end repeat
  22.     if gIndSel < 2 then
  23.       gBoutons(habille, g1erSprLoc + 13, "BTGVID 1")
  24.     else
  25.       gBoutons(habille, g1erSprLoc + 13, "BTGOEI 1")
  26.     end if
  27.     set the visible of sprite 3 to 1
  28.     repeat with i = g1erSprLoc + 11 to gMaxBoutons - 2
  29.       set the visible of sprite i to 1
  30.     end repeat
  31.     set gEtudAct to "DX"
  32.   end if
  33.   set gAcLabel to "AC:RN"
  34.   set gSurvolPrec to -1
  35.   curseur(-1)
  36.   JukeBox(0, " ")
  37.   BigPurge()
  38.   puppetSprite(48, 1)
  39. end
  40.